home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh18b.d64 / 1520 als drucker (.txt) next >
Commodore BASIC  |  1995-03-30  |  424b  |  12 lines
  1. 10 DIMH(75):FORI=0TO9
  2. 20 H(48+I)=I:H(65+I)=I+10:NEXT
  3. 30 FORI=679TO764:READA$
  4. 40 H=ASC(A$):L=ASC(RIGHT$(A$,1))
  5. 50 D=H(H)*16+H(L):POKEI,D
  6. 60 NEXT:POKE794,167:POKE795,2
  7. 100 DATAA5,B8,85,FB,A5,BA,C9,04,F0,03,4C,4A,F3,A9,03,85,B9,A9,06,85
  8. 110 DATABA,A9,7F,85,B8,20,4A,F3,A6,B8,20,C9,FF,A9,00,20,D2,FF,A5,B8
  9. 120 DATA20,C3,FF,A9,66,C5,B9,F0,15,85,B9,A9,7E,85,B8,AD,18,D0,29,02
  10. 130 DATA4A,18,69,30,8D,C9,02,4C,C0,02,A9,00,85,B9,A9,00,8D,C9,02,A5
  11. 140 DATAFB,85,B8,4C,4A,F3
  12.